home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / entropia.dxr / 00021.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  216 b   |  14 lines
  1. on exitFrame
  2.   global h1, h2, h3
  3.   set i to 3
  4.   repeat while i < 16
  5.     if i <> 14 then
  6.       set the visible of sprite i to 0
  7.     end if
  8.     set i to i + 1
  9.   end repeat
  10.   set h1 to 0
  11.   set h2 to 0
  12.   set h3 to 0
  13. end
  14.